home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / timidsrc.zip / my.pl < prev    next >
Text File  |  1996-05-21  |  397b  |  18 lines
  1. while (<>)
  2. {
  3.     if (m/^[\ ]*([A-Z0-9_]+)[\ ]*\+=[\ ]*(.*)/) {
  4.     $identitifier{$1} = $identitifier{$1} . " " . $2;
  5.     } else { $slurp[$#slurp + 1]=$_; }
  6. }
  7.  
  8. print "# This Makefile has been mangled by a very rickety perl script.\n";
  9. print "# Combined += 's: \n";
  10.  
  11. while (($a,$b,%identitifier)=%identitifier) {
  12.     print $a, " = ", $b, "\n";
  13. }
  14.  
  15. print "# The rest of the Makefile: \n";
  16.  
  17. print @slurp;
  18.